/*
 *  util.h
 *  scheme2
 *
 *  Created by Leo Katzenstein on 5/26/07.
 *  Copyright 2007 __MyCompanyName__. All rights reserved.
 *
 */

Pair *cons( Pair *car, Pair *cdr );
Pair *make_num( long n );
Pair *make_double( double d );
Pair *make_func( PF f );
char *pname( Pair *sym );
Pair *make_sym( char *pn );
Pair *make_lambda( Pair *l, Pair *env );
Pair *setf( Pair *sym, Pair *val, Pair *env );
Pair *pairlis( Pair *a, Pair *b );
